home *** CD-ROM | disk | FTP | other *** search
- /*********************************************************
-
- File: HyperXCMD.h
-
- Definition file for HyperCard XCMDs and XFCNs in C
- For use with HyperCard IIGS Version 1.1
-
- Copyright © Apple Computer, Inc. 1990-91
- All Rights Reserved
-
- *********************************************************/
-
- #ifndef __TYPES__
- #include <TYPES.h>
- #endif
-
- #ifndef __HYPERXCMD__
- #define __HYPERXCMD__
-
- #define _CallBackVector 0x00E10220L
-
- /* XCMDBlock constants for event.what... */
- #define xOpenEvt 1000 /* the first event after you are created */
- #define xCloseEvt 1001 /* your window is being forced close */
- #define xHidePalettesEvt 1004 /* someone called HideHCPalettes */
- #define xShowPalettesEvt 1005 /* someone called ShowHCPalettes */
- #define xCursorWithin 1300 /* cursor is within the window */
-
- /* XWindow styles */
- #define xWindoidStyle 0
- #define xRectStyle 1
- #define xShadowStyle 2
- #define xDialogStyle 3
-
- typedef String(19) Str19, *String19Ptr, **String19Handle;
- typedef String(31) Str31, *String31Ptr, **String31Handle;
-
- struct XCMDBlock {
- int paramCount;
- Handle params[16];
- Handle returnValue;
- Boolean passFlag;
- Word userID;
- Word returnStat; /* 0 if normal, 1 if error */
- };
- typedef struct XCMDBlock XCMDBlock, *XCMDPtr;
-
- struct XWEventInfo {
- WindowPtr eventWindow;
- EventRecord event;
- long eventParams[9];
- Handle eventResult;
- END;
- };
- typedef struct XWEventInfo XWEventInfo, *XWEventInfoPtr;
-
- /**** HyperTalk Utilities ****/
- extern pascal Handle EvalExpr( /* Str255 expr */ ) inline(0x0002,_CallBackVector);
- extern pascal void SendCardMessage( /* Str255 msg */ ) inline(0x0001,_CallBackVector);
- extern pascal void SendHCMessage( /* Str255 msg */ ) inline(0x0005,_CallBackVector);
-
-
- /**** Memory Utilities ****/
- extern pascal Handle GetGlobal( /* Str255 *globName */ ) inline(0x0012,_CallBackVector);
- extern pascal void SetGlobal( /* Str255 globName,Handle globValue */ ) inline(0x0013,_CallBackVector);
- extern pascal void ZeroBytes( /* Ptr dstPtr,long longCount */ ) inline(0x0006,_CallBackVector);
-
-
- /**** String Utilities ****/
- extern pascal Boolean GSStringEqual( /* GSString255Hndl src1,GSString255Hndl src2 */ ) inline(0x0022,_CallBackVector);
- extern pascal void ScanToReturn( /* Ptr *scanPtr */ ) inline(0x001C,_CallBackVector);
- extern pascal void ScanToZero( /* Ptr *scanPtr */ ) inline(0x001D,_CallBackVector);
- extern pascal Boolean StringEqual( /* Str255 str1,Str255 str2 */ ) inline(0x001A,_CallBackVector);
- extern pascal Longint StringLength( /* Ptr strPtr */ ) inline(0x0003,_CallBackVector);
- extern pascal Ptr StringMatch( /* Str255 stringPattern,Ptr target */ ) inline(0x0004,_CallBackVector);
-
-
- /**** String Conversions ****/
- extern pascal Str31 BoolToStr( /* Boolean bool */ ) inline(0x0010,_CallBackVector);
- extern pascal GSString255Hndl CopyGSString( /* GSString255Hndl src */ ) inline(0x0020,_CallBackVector);
- extern pascal Str31 ExtToStr( /* Extended extendedNumber */ ) inline(0x0011,_CallBackVector);
- extern pascal GSString255Hndl GSConcat( /* GSString255Hndl src1,GSString255Hndl src2 */ ) inline(0x0021,_CallBackVector);
- extern pascal Str255 GSToPString( /* GSString255Hndl src */ ) inline(0x001E,_CallBackVector);
- extern pascal Handle GSToZero( /* GSString255Hndl src */ ) inline(0x0023,_CallBackVector);
- extern pascal Str31 LongToStr( /* Longint posNum */ ) inline(0x000D,_CallBackVector);
- extern pascal Str19 NumToHex( /* Longint longNumber,word nDigits */ ) inline(0x000F,_CallBackVector);
- extern pascal Str31 NumToStr( /* Longint longNumber */ ) inline(0x000E,_CallBackVector);
- extern pascal void PointToStr( /* Point pt, Str255 str */ ) inline(0x002D,_CallBackVector);
- extern pascal Handle PasToZero( /* Str255 str */ ) inline(0x0007,_CallBackVector);
- extern pascal GSString255Hndl PToGSString( /* Str255 src */ ) inline(0x001F,_CallBackVector);
- extern pascal void RectToStr( /* Rect *rct, Str255 str */ ) inline(0x002E,_CallBackVector);
- extern pascal void ReturnToPas( /* Ptr zeroStr,Str255 *pasStr */ ) inline(0x001B,_CallBackVector);
- extern pascal Boolean StrToBool( /* Str31 str */ ) inline(0x000B,_CallBackVector);
- extern pascal extended StrToExt( /* Str31 str */ ) inline(0x000C,_CallBackVector);
- extern pascal Longint StrToLong( /* Str31 str */ ) inline(0x0009,_CallBackVector);
- extern pascal Longint StrToNum( /* Str31 str */ ) inline(0x000A,_CallBackVector);
- extern pascal void StrToPoint( /* Str255 str, Point pt */ ) inline(0x002F,_CallBackVector);
- extern pascal void StrToRect( /* Str255 str, Rect *rct */ ) inline(0x0030,_CallBackVector);
- extern pascal GSString255Hndl ZeroToGS( /* Handle src */ ) inline(0x0024,_CallBackVector);
- extern pascal void ZeroToPas( /* Ptr zeroStr,Str255 *pasStr */ ) inline(0x0008,_CallBackVector);
-
-
- /**** Field Utilities ****/
- extern pascal Handle GetFieldByID( /* Boolean cardFieldFlag,word fieldID */ ) inline(0x0016,_CallBackVector);
- extern pascal Handle GetFieldByName( /* Boolean cardFieldFlag,Str255 fieldName */ ) inline(0x0014,_CallBackVector);
- extern pascal Handle GetFieldByNum( /* Boolean cardFieldFlag,word fieldNum */ ) inline(0x0015,_CallBackVector);
- extern pascal void SetFieldByID( /* Boolean cardFieldFlag,word fieldID,Handle fieldVal */ ) inline(0x0019,_CallBackVector);
- extern pascal void SetFieldByName( /* Boolean cardFieldFlag,Str255 fieldNName,Handle fieldVal */ ) inline(0x0017,_CallBackVector);
- extern pascal void SetFieldByNum( /* Boolean cardFieldFlag,word fieldNum,Handle fieldVal */ ) inline(0x0018,_CallBackVector);
-
-
- /**** Graphic Utilities ****/
- extern pascal void ChangedMaskAndData( /* word whatChanged */ ) inline(0x002C,_CallBackVector);
- extern pascal void GetMaskAndData( /* mask *LocInfo, data *LocInfo */ ) inline(0x002B,_CallBackVector);
-
-
- /**** Miscellaneous Utilities ****/
- extern pascal void BeginXSound( ) inline(0x0029,_CallBackVector);
- extern pascal void EndXSound( ) inline(0x002A,_CallBackVector);
-
-
- /**** Resource Names Utilities ****/
- extern pascal Boolean FindNamedResource( /* word resourceType,Str255 resourceName,word *theFile,long *resourceID */ ) inline(0x0026,_CallBackVector);
- extern pascal Str255 GetResourceName( /* word resourceType,long resourceID */ ) inline(0x0028,_CallBackVector);
- extern pascal Handle LoadNamedResource( /* word resourceType,Str255 resourceName */ ) inline(0x0025,_CallBackVector);
- extern pascal void SetResourceName( /* word resourceType,long resourceID,Str255 resourceName */ ) inline(0x0027,_CallBackVector);
-
-
- /**** Creating and Disposing XWindoids ****/
- extern pascal WindowPtr NewXWindow( /* Rect boundsRect, Str31 windName, Boolean visible, word windowStyle */ ) inline(0x0031,_CallBackVector);
- extern pascal void CloseXWindow( /* WindowPtr window */ ) inline(0x0033,_CallBackVector);
-
-
- /**** XWindoid Utilities ****/
- extern pascal Longint GetXWindowValue( /* WindowPtr window */ ) inline(0x0037,_CallBackVector);
- extern pascal void HideHCPalettes( ) inline(0x0034,_CallBackVector);
- extern pascal void ShowHCPalettes( ) inline(0x0035,_CallBackVector);
- extern pascal void SetXWIdleTime( /* WindowPtr window, Longint interval */ ) inline(0x0032,_CallBackVector);
- extern pascal void SetXWindowValue( /* WindowPtr window, Longint customValue */ ) inline(0x0036,_CallBackVector);
- extern pascal void XWAllowReEntrancy( /*WindowPtr window, Boolean allowSysEvts, Boolean allowHCEvts */ ) inline(0x0038,_CallBackVector);
-
-
- #endif
-